home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / TEMPLATE.ZIP / AS_CLNUP.COD < prev    next >
Text File  |  1994-10-12  |  376b  |  25 lines
  1. //
  2. PROCEDURE Cleanup
  3. *{replicate("-",69)}
  4. * Comprueba donde se seleccionó el destino de impresión
  5. *{replicate("-",69)}
  6.  
  7.   DO CASE
  8.  
  9.     CASE gc_dev='CON'
  10.       DO Wait4Key
  11.  
  12.     CASE gc_dev='PRN'
  13.       SET PRINT OFF
  14.       SET PRINTER TO
  15.  
  16.     CASE gc_dev='TXT'
  17.       CLOSE ALTERNATE
  18.  
  19.   ENDCASE
  20.   gc_dev='CON'
  21.  
  22. RETURN
  23. *-- EOP: Cleanup
  24. // EOP AS_CLNUP.COD
  25.